inherited FpesquisaResumoClienteXMes: TFpesquisaResumoClienteXMes
  Left = 375
  Top = 193
  Caption = 'Pesquisa Relat'#243'rio Resumo Clientes X M'#234's'
  ClientHeight = 346
  OldCreateOrder = True
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel2: TPanel
    inherited BtnLimpar: TBitBtn
      OnClick = BtnLimparClick
    end
    inherited BtnImprimir: TBitBtn
      OnClick = BtnImprimirClick
    end
    inherited BtnSelecionar: TBitBtn
      Left = 321
      Visible = False
    end
    inherited BtnFechar: TBitBtn
      Left = 242
    end
  end
  inherited Panel1: TPanel
    Height = 305
    object Label1: TLabel [0]
      Left = 16
      Top = 8
      Width = 64
      Height = 13
      Caption = 'Grupo Cliente'
    end
    object Label10: TLabel [1]
      Left = 4
      Top = 199
      Width = 46
      Height = 13
      Caption = 'Empresas'
    end
    object Label18: TLabel [2]
      Left = 219
      Top = 8
      Width = 96
      Height = 13
      Caption = 'Grupo Centro. Custo'
    end
    inherited DBGrid1: TDBGrid
      Left = -7
      Top = 333
      Align = alNone
      TabOrder = 7
    end
    inherited Panel3: TPanel
      Top = 284
      TabOrder = 6
    end
    object GroupBox1: TGroupBox
      Left = 8
      Top = 40
      Width = 397
      Height = 97
      Caption = '  Per'#237'odo de Compet'#234'ncia  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      object Label2: TLabel
        Left = 176
        Top = 29
        Width = 92
        Height = 13
        Caption = 'Compet'#234'ncia Inicial'
      end
      object Label3: TLabel
        Left = 176
        Top = 55
        Width = 87
        Height = 13
        Caption = 'Compet'#234'ncia Final'
      end
      object rbVencto: TRadioButton
        Left = 8
        Top = 24
        Width = 113
        Height = 17
        Caption = 'Vencimento'
        Checked = True
        TabOrder = 0
        TabStop = True
      end
      object rbLancto: TRadioButton
        Left = 8
        Top = 48
        Width = 113
        Height = 17
        Caption = 'Lan'#231'amento'
        TabOrder = 1
      end
      object rbDocto: TRadioButton
        Left = 8
        Top = 72
        Width = 113
        Height = 17
        Caption = 'Documento'
        TabOrder = 2
      end
      object deIni: TDateTimePicker
        Left = 296
        Top = 29
        Width = 75
        Height = 21
        CalAlignment = dtaLeft
        Date = 38601.4073681597
        Format = 'MM/yyyy'
        Time = 38601.4073681597
        DateFormat = dfShort
        DateMode = dmUpDown
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
      end
      object deFinal: TDateTimePicker
        Left = 296
        Top = 55
        Width = 75
        Height = 21
        CalAlignment = dtaLeft
        Date = 38601.4087574074
        Format = 'MM/yyyy'
        Time = 38601.4087574074
        DateFormat = dfShort
        DateMode = dmUpDown
        Kind = dtkDate
        ParseInput = False
        TabOrder = 4
      end
    end
    object edGrupoCliente: TEdit
      Left = 88
      Top = 8
      Width = 89
      Height = 19
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 0
      OnKeyPress = edGrupoClienteKeyPress
    end
    object CLBEmpresas: TCheckListBox
      Left = 1
      Top = 187
      Width = 409
      Height = 97
      TabStop = False
      Align = alBottom
      ItemHeight = 13
      TabOrder = 5
    end
    object CkBTodasEmpresas: TCheckBox
      Left = 4
      Top = 163
      Width = 118
      Height = 17
      Caption = 'Todas as Empresas'
      TabOrder = 4
      OnClick = CkBTodasEmpresasClick
    end
    object EGrupoCentroCusto: TEdit
      Left = 325
      Top = 8
      Width = 46
      Height = 19
      Ctl3D = False
      MaxLength = 2
      ParentCtl3D = False
      TabOrder = 1
    end
    object rgSimouNao: TRadioGroup
      Left = 200
      Top = 140
      Width = 205
      Height = 41
      Caption = '  Considerar T'#237'tulos Descontados?  '
      Columns = 2
      Ctl3D = False
      ItemIndex = 0
      Items.Strings = (
        'Sim'
        'N'#227'o')
      ParentCtl3D = False
      TabOrder = 3
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      'SELECT DISTINCT'
      '  CLIENTE.CLI_CODIGO,'
      '  CLIENTE.CLI_FANTASIA'
      'FROM'
      ' CLIENTE'
      
        ' INNER JOIN CONTASRECEBER ON (CLIENTE.CLI_CODIGO = CONTASRECEBER' +
        '.CR_CLIENTE)'
      'WHERE'
      '  (CONTASRECEBER.CR_SALDO > 0)'
      'GROUP BY'
      '  CONTASRECEBER.CR_DATADOCUMENTO,'
      '  CONTASRECEBER.CR_DATATITULO,'
      '  CONTASRECEBER.CR_DATAVENCIMENTO,'
      '  CLIENTE.CLI_FANTASIA,'
      '  CLIENTE.CLI_RAZAO,'
      '  CLIENTE.CLI_CODIGO'
      'ORDER BY'
      '  CONTASRECEBER.CR_CLIENTE,'
      '  CONTASRECEBER.CR_DATADOCUMENTO')
    Left = 88
    Top = 241
  end
  inherited DSPesquisa: TDataSource
    Left = 152
    Top = 241
  end
  object Qauxiliar: TQuery
    DatabaseName = 'base'
    Left = 24
    Top = 240
  end
end
